home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / devel / vbcc-68k-src / machines / amiga68k / libsrc / ixemul / support / tstl.s < prev   
Text File  |  1999-01-01  |  225b  |  16 lines
  1.     xdef    __ieeetstl
  2.     xref    ___cmpsf2
  3. ;   ieeek!
  4. __ieeetstl:
  5.     move.l  (a7),ret
  6.     clr.l   (a7)
  7.     jsr     ___cmpsf2
  8.     addq.w  #4,a7
  9.     neg.l   d0
  10.     move.l  ret,a0
  11.     jmp     (a0)
  12.     rts
  13. ret:
  14.     ds.l    1
  15.  
  16.